home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 5 Developer's Kit / vb5 dev kit.iso / dev / t2win-32 / _mdit2w.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-08-24  |  7.4 KB  |  220 lines
  1. VERSION 4.00
  2. Begin VB.MDIForm mdiT2W 
  3.    AutoShowChildren=   0   'False
  4.    BackColor       =   &H00808080&
  5.    Caption         =   "TIME TO WIN 32-Bit DEMO"
  6.    ClientHeight    =   7335
  7.    ClientLeft      =   705
  8.    ClientTop       =   1245
  9.    ClientWidth     =   10410
  10.    Height          =   8025
  11.    Icon            =   "_Mdit2w.frx":0000
  12.    Left            =   645
  13.    Top             =   615
  14.    Width           =   10530
  15.    Begin Threed.SSPanel SSPanel1 
  16.       Align           =   1  'Align Top
  17.       Height          =   465
  18.       Left            =   0
  19.       TabIndex        =   0
  20.       Top             =   0
  21.       Width           =   10410
  22.       _Version        =   65536
  23.       _ExtentX        =   18362
  24.       _ExtentY        =   820
  25.       _StockProps     =   15
  26.       BackColor       =   12632256
  27.       Begin VB.Timer Timer1 
  28.          Enabled         =   0   'False
  29.          Left            =   11025
  30.          Top             =   30
  31.       End
  32.       Begin VB.PictureBox Picture1 
  33.          AutoSize        =   -1  'True
  34.          Height          =   300
  35.          Left            =   11550
  36.          Picture         =   "_Mdit2w.frx":030A
  37.          ScaleHeight     =   240
  38.          ScaleWidth      =   240
  39.          TabIndex        =   6
  40.          Top             =   75
  41.          Visible         =   0   'False
  42.          Width           =   300
  43.       End
  44.       Begin VB.ComboBox cmb_Group 
  45.          Height          =   315
  46.          Left            =   2250
  47.          TabIndex        =   2
  48.          Top             =   90
  49.          Width           =   4695
  50.       End
  51.       Begin VB.Label Label1 
  52.          Caption         =   "&Select a group of functions"
  53.          Height          =   255
  54.          Left            =   90
  55.          TabIndex        =   1
  56.          Top             =   120
  57.          Width           =   2085
  58.       End
  59.    End
  60.    Begin Threed.SSPanel SSPanel2 
  61.       Align           =   2  'Align Bottom
  62.       Height          =   420
  63.       Left            =   0
  64.       TabIndex        =   3
  65.       Top             =   6915
  66.       Width           =   10410
  67.       _Version        =   65536
  68.       _ExtentX        =   18362
  69.       _ExtentY        =   741
  70.       _StockProps     =   15
  71.       BackColor       =   12632256
  72.       Begin Threed.SSPanel pnl_Timer 
  73.          Height          =   240
  74.          Left            =   2970
  75.          TabIndex        =   5
  76.          Top             =   90
  77.          Width           =   825
  78.          _Version        =   65536
  79.          _ExtentX        =   1455
  80.          _ExtentY        =   423
  81.          _StockProps     =   15
  82.          BackColor       =   12632256
  83.       End
  84.       Begin Threed.SSPanel pnl_Version 
  85.          Height          =   240
  86.          Left            =   11340
  87.          TabIndex        =   8
  88.          Top             =   90
  89.          Width           =   510
  90.          _Version        =   65536
  91.          _ExtentX        =   900
  92.          _ExtentY        =   423
  93.          _StockProps     =   15
  94.          BackColor       =   12632256
  95.       End
  96.       Begin VB.Label Label4 
  97.          AutoSize        =   -1  'True
  98.          Height          =   195
  99.          Left            =   4935
  100.          TabIndex        =   9
  101.          Top             =   105
  102.          Width           =   45
  103.       End
  104.       Begin VB.Label Label3 
  105.          Alignment       =   1  'Right Justify
  106.          Caption         =   "TIME2WIN version"
  107.          Height          =   225
  108.          Left            =   9765
  109.          TabIndex        =   7
  110.          Tag             =   "elapsed time for ~ iterations (in ms)"
  111.          Top             =   105
  112.          Width           =   1440
  113.       End
  114.       Begin VB.Label Label2 
  115.          Caption         =   "elapsed time for ? iterations (in ms)"
  116.          Height          =   225
  117.          Left            =   90
  118.          TabIndex        =   4
  119.          Tag             =   "elapsed time for ~ iterations (in ms)"
  120.          Top             =   105
  121.          Width           =   2805
  122.       End
  123.    End
  124.    Begin VB.Menu mnu_List 
  125.       Caption         =   "&Window List"
  126.       WindowList      =   -1  'True
  127.    End
  128.    Begin VB.Menu mnu_Exit 
  129.       Caption         =   "E&xit"
  130.    End
  131. Attribute VB_Name = "mdiT2W"
  132. Attribute VB_Creatable = False
  133. Attribute VB_Exposed = False
  134. Option Explicit
  135. Dim IsLoaded         As Integer
  136. Private Sub cmb_Group_Click()
  137.    If (IsLoaded = False) Then Exit Sub
  138.    Dim Frm        As Form
  139.    Select Case cmb_Group.ListIndex
  140.       Case 0:  Set Frm = frmArray
  141.       Case 1:  Set Frm = frmBitString
  142.       Case 2:  Set Frm = frmDayMonth
  143.       Case 3:  Set Frm = frmDAString
  144.       Case 4:  Set Frm = frmDALong
  145.       Case 5:  Set Frm = frmDAType
  146.       Case 6:  Set Frm = frmIeeenum
  147.       Case 7:  Set Frm = frmMem
  148.       Case 8:  Set Frm = frmFile
  149.       Case 9:  Set Frm = frmCompress
  150.       Case 10: Set Frm = frmCrc32
  151.       Case 11: Set Frm = frmEncrypt
  152.       Case 12: Set Frm = frmMatrix
  153.       Case 13: Set Frm = frmIsX
  154.       Case 14: Set Frm = frmSerialization
  155.       Case 15: Set Frm = frmString
  156.       Case 16: Set Frm = frmMisc
  157.       Case 17: Set Frm = frmObject
  158.       Case 18: Set Frm = frmLanguage
  159.       Case 19: Set Frm = frmCrypt
  160.       Case 20: Set Frm = frmRegistry
  161.       Case 21: Set Frm = frmMediaID
  162.       Case 22: Set Frm = frmDIBBitmap
  163.       Case 23: Set Frm = frmTile
  164.       Case 24: Set Frm = frmEnumPJ
  165.    End Select
  166.    Load Frm
  167. End Sub
  168. Private Sub MDIForm_Load()
  169.    Dim intResult     As Integer
  170.    Me.WindowState = 2
  171.    IsLoaded = False
  172.    pnl_Version = Format(cGetVersion(), "#.00")
  173.    Call cCenterWindow(Me.hWnd)
  174.    Call sub_Check_Project
  175.    Call sub_Initialization
  176.    Call sub_Load_Combo(cmb_Group, T2WDirInst + "_group.t2w")
  177.    Label4.Caption = "Register TIME TO WIN   "
  178.    Timer1.interval = 124
  179.    Timer1.Enabled = True
  180.    Me.Show
  181.    MsgBox "20 new functions : " & vbCrLf & vbCrLf _
  182.    & "see in Group of functions : BitString/BitValue" & vbCrLf & vbCrLf _
  183.    & "   cGetBitX/cSetBitX (5/5 functions)" & vbCrLf _
  184.    & "   cI2B/cI2L" & vbCrLf & vbCrLf _
  185.    & "see in Group of functions : String" & vbCrLf & vbCrLf _
  186.    & "   cToZ9/cFromZ9" & vbCrLf & vbCrLf _
  187.    & "see in Group of functions : Protection" & vbCrLf & vbCrLf _
  188.    & "   cMod10/cMod10R/cMod11/cMod11R/cMod137/cMod137R" & vbCrLf _
  189.    , , "TIME TO WIN (32-Bit) version " & cGetVersion() & " (Win95/WinNT)"
  190.       
  191.    IsLoaded = True
  192. End Sub
  193. Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  194.    Dim intResult     As Integer
  195.    If (Len(T2WDirTest) > 0) Then
  196.       intResult = cChDir(T2WDirInst)
  197.       Call cKillFilesAll(T2WDirTest + "\*.*")
  198.       Call cKillDir(T2WDirTest)
  199.    End If
  200.    MsgBox "Thank you for registering T2WIN-32.DLL", , "T2WIN-32.DLL demo"
  201.    intResult = cTaskBarDeleteIcon(mdiT2W.hWnd)
  202. End Sub
  203. Private Sub MDIForm_Resize()
  204.    Dim intResult     As Integer
  205.    If (Me.WindowState = 1) Then
  206.       intResult = cTaskBarModifyIcon(mdiT2W.hWnd, mdiT2W.Icon, mdiT2W.Caption + " (minimized) ")
  207.    End If
  208.    If (Me.WindowState = 2) Then
  209.       intResult = cTaskBarModifyIcon(mdiT2W.hWnd, mdiT2W.Icon, mdiT2W.Caption)
  210.    End If
  211.       
  212.    If (Me.WindowState = 0) Then Me.WindowState = 2
  213. End Sub
  214. Private Sub mnu_Exit_Click()
  215.    Unload Me
  216. End Sub
  217. Private Sub Timer1_Timer()
  218.    Label4.Caption = cScrollL(Label4.Caption)
  219. End Sub
  220.